home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / start-stop / finish.mps next >
Text File  |  2005-05-22  |  696b  |  36 lines
  1. INCLUDE 'def.mps'
  2. OPTION UNDO, 0
  3. call DEC_TEXT_CONV
  4.  
  5. errorhandler ateof
  6.  
  7. DEF reg envparse("%appregkey%\\openfiles")
  8. option globalvars 1
  9. var filenames text
  10.  
  11. = store the filenames of all open files in the registry
  12. regwrite reg 
  13. regwrite reg "active" currentfile
  14.  
  15. if file_count > 0
  16.   loop writefile file_count
  17. endif
  18. regwrite reg "files" filenames
  19. @@ateof
  20. end 
  21.  
  22.  
  23. @@writefile
  24. var fn text
  25. var f file
  26. fn = files(loop)
  27. = write selstart, selend
  28. f = fileopen('::'+fn, 'r')
  29. if filegetprop(f, 'HasFile')
  30.   filenames = filenames+"\n"+fn
  31.   regwrite reg fn+":selstart" filegetprop(f,'selstart')
  32.   regwrite reg fn+":selcount" filegetprop(f,'selcount')
  33. endif
  34. fileclose f
  35. return
  36.